home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 08 (1983-04)(Softdisk)(Disk 2 of 2 Side A).zip / Softdisk Magazette Volume 2, No. 08 (1983-04)(Softdisk)(Disk 2 of 2 Side A).do / PAL.94010.BEARDSLEY.MAR.83.A.bas < prev    next >
BASIC Source File  |  1996-12-24  |  656b  |  21 lines
  1. 10  CLEAR 
  2. 20  HOME 
  3. 25  VTAB 5
  4. 30  PRINT " THE ANSWER TO DON MILNES PROBLEM WITH"
  5. 33  PRINT "RENUMBER CAN BE SOLVED EASILY...."
  6. 35  PRINT 
  7. 40  PRINT "    1) LOAD RENUMBER"
  8. 41  PRINT "    2) POKE 4789,172"
  9. 42  PRINT "    3) POKE 4790,171"
  10. 43  PRINT "    4) SAVE RENUMBER"
  11. 45  PRINT : PRINT : PRINT : PRINT 
  12. 50 N$ = "DUNCAN BEARDSLEY"
  13. 60 A$ = "1898 FLORIBUNDA AVE."
  14. 70 C$ = "HILLSBOROUGH CA 94010"
  15. 80  PRINT : PRINT  TAB( 20 - LEN(N$)/2);N$
  16. 90  PRINT  TAB( 20 - LEN(A$)/2);A$
  17. 100  PRINT  TAB( 20 - LEN(C$)/2);C$
  18. 120 M$ = "<ANY KEY FOR PAL MENU>"
  19. 130  VTAB 23: HTAB (20 - LEN(M$)/2): PRINT M$
  20. 140  GET KB$: PRINT KB$: HOME 
  21. 150  PRINT  CHR$(4);"RUN PAL.MENU"